home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-Sensation: Golden Games / Amiga CD-Sensation - Ausgabe 2 - Golden Games (1996)(GTI - Schatztruhe)(DE)[!].iso / Brain Activity / Hydrocis / InstallDiskette < prev    next >
Text File  |  1995-01-21  |  3KB  |  102 lines
  1. ; $VER: Hydrocis_DiskInstaller_Version 1.00 (03.01.95)
  2. ; von Sebastian Winkel
  3.  
  4. (set #introduction
  5. (cat "\n\nMit diesem Programm können Sie das Spiel Hydrocis auf einer Diskette "
  6.      "installieren. Sie benötigen hierzu eine formatierte und installierte "
  7.      "Leerdiskette mit dem Namen ´Hydrocis´. "
  8.      "Dieses Programm wird neben dem Inhalt dieses Archivs einige wichtige "
  9.      "Dateien aus dem SYS: - Verzeichnis darauf kopieren. "))
  10.  
  11. (complete 0)
  12. (message #introduction)
  13.  
  14. (set anleitungen
  15. (askoptions (prompt "\nHydrocis liegt eine Anleitung als Text und als AmigaGuide "
  16.                     "bei. Beide haben den gleichen Inhalt. Welche wollen Sie "
  17.                     "installieren? ")
  18. (help "Drücken Sie im Zweifelsfalle WEITER")
  19. (Choices "Hydrocis.dok"
  20.          "Hydrocis.guide")
  21. (default 2)))
  22.  
  23. (working "\n\nIch beginne mit dem Kopieren...")
  24.  
  25. (set @default-dest "Hydrocis:")
  26.  
  27. (if (= anleitungen 1)
  28. (copyfiles (source "Hydrocis.dok") (dest @default-dest) (nogauge) (infos)))
  29. (complete 5)
  30.  
  31. (if (= anleitungen 2)
  32. (copyfiles (source "Hydrocis.guide") (dest @default-dest) (nogauge) (infos)))
  33. (complete 5)
  34.  
  35. (if (= anleitungen 3)
  36. (
  37. (copyfiles (source "Hydrocis.dok") (dest @default-dest) (nogauge) (infos))
  38. (copyfiles (source "Hydrocis.guide") (dest @default-dest) (nogauge) (infos))
  39. (complete 5)
  40. ))
  41.  
  42. (copyfiles (source "level1") (dest @default-dest) (nogauge))
  43. (complete 10)
  44. (copyfiles (source "level19") (dest @default-dest) (nogauge))
  45. (complete 15)
  46. (copyfiles (source "level21") (dest @default-dest) (nogauge))
  47. (complete 20)
  48. (copyfiles (source "level2") (dest @default-dest) (nogauge))
  49. (complete 25)
  50. (copyfiles (source "level26") (dest @default-dest) (nogauge))
  51. (complete 30)
  52. (copyfiles (source "level16") (dest @default-dest) (nogauge))
  53. (complete 35)
  54. (copyfiles (source "DemoInfo") (dest @default-dest) (nogauge))
  55. (complete 40)
  56. (copyfiles (source "level31") (dest @default-dest) (nogauge))
  57. (complete 45)
  58. (copyfiles (source "level32") (dest @default-dest) (nogauge))
  59. (complete 40)
  60.  
  61. (copyfiles (source "Hydrocis") (dest @default-dest) (nogauge) (infos))
  62. (complete 42)
  63. (copyfiles (source "Registrationsformular") (dest @default-dest) (nogauge) (infos))
  64. (complete 44)
  65. (copyfiles (source "Icons") (dest @default-dest) (nogauge))
  66. (complete 45)
  67. (copyfiles (source "Intro") (dest @default-dest) (nogauge))
  68. (complete 50)
  69. (copyfiles (source "Pithecus") (dest @default-dest) (nogauge))
  70. (complete 55)
  71. (copyfiles (source "GUI") (dest @default-dest) (nogauge))
  72. (complete 60)
  73.  
  74. (makedir "Hydrocis:Fonts")
  75. (makedir "Hydrocis:Fonts/Ruby")
  76. (makedir "Hydrocis:S")
  77. (makedir "Hydrocis:Libs")
  78. (complete 70)
  79.  
  80. (if (exists("SYS:L/Disk-Validator"))
  81.  ((makedir "Hydrocis:L")
  82.  (copyfiles (source "SYS:L/Disk-Validator") (dest "Hydrocis:L") (nogauge)))
  83. )
  84.  
  85. (copyfiles (source "FONTS:ruby/15") (dest "Hydrocis:Fonts/Ruby") (nogauge))
  86. (copyfiles (source "FONTS:ruby/8") (dest "Hydrocis:Fonts/Ruby") (nogauge))
  87. (copyfiles (source "FONTS:Ruby.Font") (dest "Hydrocis:Fonts") (nogauge))
  88. (complete 80)
  89.  
  90. (copyfiles (source "LIBS:diskfont.library") (dest "Hydrocis:Libs") (nogauge))
  91.  
  92. (if (exists("LIBS:lowlevel.library"))
  93.  ((copyfiles (source "LIBS:lowlevel.library") (dest "Hydrocis:Libs") (nogauge)))
  94. )
  95.  
  96. (complete 90)
  97.  
  98. (copyfiles (source "StaSequ.inst") (dest "Hydrocis:S") (nogauge))
  99. (rename "Hydrocis:S/StaSequ.inst" "Hydrocis:S/Startup-Sequence")
  100. (complete 100)
  101.  
  102.